home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 28 Bonus
/
CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin
/
data
/
cnbalex.dir
/
00147_Script_UTILITY HANDLERS
< prev
next >
Wrap
Text File
|
1996-06-10
|
636b
|
32 lines
on setPuppets spriteList,state
repeat with i = 1 to count(spriteList)
puppetSprite getpos(spriteList,i), state -- get a VALUE by referring to a POSITION in the list
end repeat
end
on setSpriteVisibility spriteList,state
repeat with i = 1 to count(spriteList)
set the visible of sprite value(getAt(spriteList,i)) to getAt(state,i)
end repeat
updateStage
end
on inList aList,anElement
set inList = FALSE
repeat with i = 1 to count(aList)
if anElement = getAt(aList,i) then
set inList = TRUE
exit repeat
end if
end repeat
return inList
end